home *** CD-ROM | disk | FTP | other *** search
/ Get a Grip Tennis by Wilson / Get a Grip Tennis by Wilson.iso / pc / wilson.dxr / Internal_51_flashing play.ls < prev    next >
Encoding:
Text File  |  2003-08-12  |  689 b   |  29 lines
  1. property pSprite, pMember, pMovieMember, pMovieSprite, pCounter, pInterval
  2.  
  3. on beginSprite me
  4.   pSprite = sprite(the currentSpriteNum)
  5.   pMember = member(pSprite.member)
  6.   pMovieSprite = sprite(39)
  7.   pMovieMember = member(pMovieSprite.member)
  8.   pInterval = 15
  9.   pCounter = 0
  10. end
  11.  
  12. on exitFrame me
  13.   if (pMovieSprite.movieRate = 0) and (pCounter < pInterval) then
  14.     pSprite.member = member("vid_play")
  15.   else
  16.     if (pMovieSprite.movieRate = 0) and (pCounter < (pInterval * 2)) then
  17.       pSprite.member = member("vid_play_f2")
  18.     end if
  19.   end if
  20.   pCounter = pCounter + 1
  21.   if pCounter = (pInterval * 2) then
  22.     pCounter = 0
  23.   end if
  24. end
  25.  
  26. on mouseDown me
  27.   pSprite.member = pMember
  28. end
  29.